home *** CD-ROM | disk | FTP | other *** search
/ CGI How-To / CGI HOW-TO.iso / chap6 / 6_6 / http_pl / envvar.pl next >
Encoding:
Perl Script  |  1996-06-15  |  1.1 KB  |  29 lines

  1. #!/usr/bin/perl
  2.  
  3. print "Content-type: text/plain\n\n";
  4.  
  5. print "The command line arguments for this script are:\n";
  6. print join(" ",@ARGV),"\n\n";
  7.  
  8. print "The environmental variables available to the script include:\n\n";
  9.  
  10. print "SERVER_SOFTWARE = ",$ENV{"SERVER_SOFTWARE"},"\n";
  11. print "SERVER_NAME =  ",$ENV{"SERVER_NAME"},"\n";
  12. print "GATEWAY_INTERFACE =  ",$ENV{"GATEWAY_INTERFACE"},"\n";
  13. print "SERVER_PROTOCOL =   ",$ENV{"SERVER_PROTOCOL"},"\n";
  14. print "SERVER_PORT =  ",$ENV{"SERVER_PORT"},"\n";
  15. print "REQUEST_METHOD =  ",$ENV{"REQUEST_METHOD"},"\n";
  16. print "HTTP_ACCEPT = ",$ENV{"HTTP_ACCEPT"},"\n";
  17. print "PATH_INFO = " ,$ENV{"PATH_INFO"},"\n";
  18. print "PATH_TRANSLATED = " ,$ENV{"PATH_TRANSLATED"},"\n";
  19. print "SCRIPT_NAME = " ,$ENV{"SCRIPT_NAME"},"\n";
  20. print "QUERY_STRING = " ,$ENV{"QUERY_STRING"},"\n";
  21. print "REMOTE_HOST =  ",$ENV{"REMOTE_HOST"},"\n";
  22. print "REMOTE_ADDR =  ",$ENV{"REMOTE_ADDR"},"\n";
  23. print "REMOTE_USER =  ",$ENV{"REMOTE_USER"},"\n";
  24. print "AUTH_TYPE =  ",$ENV{"AUTH_TYPE"},"\n";
  25. print "CONTENT_TYPE =  ",$ENV{"CONTENT_TYPE"},"\n";
  26. print "CONTENT_LENGTH =  ",$ENV{"CONTENT_LENGTH"},"\n";
  27.  
  28. 1;
  29.